home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / MacII / CacheControl Folder / Cache.a < prev    next >
Encoding:
Text File  |  1987-08-23  |  663 b   |  46 lines  |  [TEXT/ttxt]
  1.             Machine    MC68020
  2. ;                    MC68881
  3. ;                    MC68851
  4.  
  5.             PRINT        OFF
  6.             INCLUDE     'Traps.a'
  7. ;            INCLUDE     'ToolEqu.a'
  8. ;            INCLUDE     'QuickEqu.a'
  9. ;            INCLUDE     'SysEqu.a'
  10.             PRINT        ON
  11.  
  12. CPUFlag        EQU        $012F
  13. ROMBase        EQU        $02AE
  14.  
  15. Cache        MAIN
  16.  
  17.             move.l    d0,-(sp)
  18. Check020    move.b    CPUFlag,d0
  19.             tst.w    d0
  20.             beq.s    is68000
  21.             cmp.w    #1,d0
  22.             beq.s    is68000
  23.             cmp.w    #2,d0
  24.             beq.s    is68020
  25.             bra.s    isOthers
  26. is68020        cmp.w    #4,ROMBase
  27.             bne.s    isMacII
  28. isProdigy    NOP            
  29.             
  30. isMacII        clr.l    d0
  31.             movec    CACR,d0
  32.             eori    #1,d0
  33.             movec    d0,CACR
  34.             btst    #0,d0
  35.             bne.s    isOn
  36. isOff        move.w    #3,-(sp)
  37.             _SysBeep
  38. isOn        move.w    #3,-(sp)
  39.             _SysBeep
  40.  
  41. isOthers
  42. is68000        move.l    (sp)+,d0
  43.             RTS
  44.  
  45.             END
  46.